home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 235 / 235.d81 / mystic castle_64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2004-01-01  |  25.9 KB  |  433 lines

  1. 0 vic=53248:poke2040,11:poke2041,13:poke2042,14:poke2043,15:forx=704to767:reada:pokex,a:next:forx=832to1021:reada:pokex,a:next:print"mystic castle v1.20 by paul panks"
  2. 1 data252,7,239,130,8,41,189,23,170,82,169,69,81,81,66,84,165,65,54,77,128,53,21
  3. 2 data128,44,166,128,44,70,128,74,10,64,85,181,65,69,20
  4. 3 data66,186,11,165,124,7,203,0,0,22,192,0,45,191,255,250,95,255,244,32,0,8,31,255,240,0
  5. 4 data63,7,192,21,10,160,143,27,176,205,20,80,171,20,32,85,26,0,165,21,0,86,202,128,45,133,64,90,131,32
  6. 5 data 182,131,96,107,67,160,210,189,96,161,65,64,64,190,128,128,127,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  7. 6 data127,239,240,86,165,160,105
  8. 7 data98,64,77,35,64,11,2,192
  9. 8 data75,34,192,109,99,64,93,171,80,75,38,224,91,170,208,109
  10. 9 data99,64,77,35,64,11,2,192,18,130,192,36,69,32,127,239,240,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  11. 10 data 63,192,0,94,32,0,173,240
  12. 11 data0,210,208,0,215,48,0,176,16,0,180,0,0,204,0,0,212,0,0,208,0,0,176,0,0
  13. 12 data176,48,0,183,24,0,210,168,0,205,216,0,126,240,0,63,224,0,0,0,0,0,0,0,0,0,0,0,0
  14. 18 poke53280,0:poke53281,0:printchr$(14)"[147]"
  15. 19 printchr$(14)"[147]"
  16. 20 gosub250
  17. 21 dimvb$(19),wd$(26),rn$(36),de$(76),m(36,6),lo(62),ob$(62),ex$(62),re$(15),dy,rm,tm$,hp,hm,ex,ct,gp,hv,ev,fv,dv,si,x,i,a$,ry$,z$:hr=6:m=0
  18. 22 tm$="[211]unrise":gp=150:dim ao$(62):rm=1:gosub197:printchr$(14)chr$(8)""spc(13)"[208]lease wait"
  19. 23 forx=1to76:readde$(x):nextx:forx=1to14:readre$(x):nextx:gosub242:print"[147]":gosub215
  20. 24 print"[147][193]re you playing a saved game?";:gosub202:ifry$="y"orry$="[217]"thenrm=1:h=200:hp=200:gp=300:ep=.:ct=0:dy=0:goto29
  21. 25 h=200:hp=200:gp=300:ep=.:ct=0:dy=0:print"[147][206]ew character[146]":print:print"[197]nter your character's name below:"
  22. 26 gosub 61:iflen(z$)>16thenprint"[195]haracter name exceeds maximum!":gosub197:goto25
  23. 27 na$=z$:pn$=z$:print"[215]hat would you like to be known as?     (i.e. [199]eoff the [194]rave[146]):"
  24. 28 gosub 61:kn$=z$:print:print"[206]ow enter an alignment:":print"[204][146]awful,[195][146]aotic,[206][146]eutral":gosub194:al$=ry$:goto207
  25. 29 printchr$(14)"[147][195]ontinue [211]aved [199]ame[146]":print:dk$="d":k$="0":print"[201]nsert disk...":print"[200]it [211][208][193][195][197] [194][193][210][146], or q[146] to abort.":gosub194:ifry$="q"thenclr:run
  26. 30 print
  27. 31 si=0:input"[212]itle    [157]*[157][157][157]";lt$:gosub200:iflt$="*"orsi=1then31
  28. 32 open2,8,2,"0:"+lt$+",s,r":forx=7to62:input#2,lo(x):next
  29. 33 input#2,rm:input#2,ct:input#2,ep:input#2,gp:input#2,h:input#2,hp:input#2,pn$:input#2,kn$:input#2,al$:close2:goto35
  30. 34 ct=1:lo(7)=-1:dy=0:tm$="[211]unrise":m=0:pm=0:am=1
  31. 35 lo(55)=9:print"[147]":poke53280,0:poke53281,0:gosub250:gosub257:gosub63000:print:print"[207]bjects present here:":print:si=0:forx=7to60:iflo(x)=rmthenprintob$(x):si=1
  32. 36 next:gosub240:print"[207]bvious exits:":print:forx=1to6:ifm(rm,x)>0thenprintob$(x)"  ";
  33. 37 next:print
  34. 38 ob$(24)="canteen":ex$(52)="[212]his is [205]ordimar!--[197]vil of the [193]ncients![217]ou sense great power flowing through   him!"
  35. 39 rem main loop
  36. 40 gosub199:n=0:v=0:z$="":print">";:gosub61:forx=1to25:wd$(x)="":next:gosub224:dy=dy+1:ifz$="help"thengoto243
  37. 41 y=1:wa=1:forx=1tolen(z$):ifmid$(z$,x,1)=" "theny=x:wd$(wa)=left$(z$,y-1):wa=wa+1:wd$(wa)=mid$(z$,y+1,x+1)
  38. 42 next:wd$(wa)=mid$(z$,y+1,x+1):ifz$="graphic"orz$="help"orz$="[133]"ora$="help"thengoto243
  39. 43 ifz$="list"andrm=9thengosub385:goto40
  40. 44 ifz$="i"orz$="inv"orz$="inve"orz$="inven"orz$="in"orz$="inventory"orz$="stat"orz$="stats"orz$="statistics"orz$="vitals"thengoto54
  41. 45 vb$(1)="go":vb$(2)="get":vb$(3)="take":vb$(4)="drop":vb$(5)="wield":vb$(6)="unwield":vb$(7)="wear":vb$(8)="remove":vb$(9)="buy":vb$(10)="sell":vb$(11)="eat"
  42. 46 vb$(12)="drink":vb$(13)="examine":vb$(14)="read":vb$(15)="light":vb$(16)="extinguish":vb$(17)="climb":vb$(18)="use":vb$(19)="kill":ifz$="quit"thengoto298
  43. 47 ifz$="l"orz$="look"orz$="view"thengoto35
  44. 48 forx=1to19:ifvb$(x)=wd$(1)thenv=x
  45. 49 next:forx=1to60:ifob$(x)=wd$(2)orao$(x)=wd$(2) then n=x
  46. 50 next:ifv=0thenprint"[214]erb not recognized. [212]ype help[146]":print"for the game vocabulary.":goto40
  47. 51 ifn=0thenifwd$(1)<>"examine"andwd$(1)<>"read"andwd$(1)<>"climb"thenprintre$(4):goto40
  48. 52 gosub224:onvgoto70,77,87,89,97,103,106,110,113,122,128,133,139,144,149,153,156,160,168
  49. 53 print"[207]k.":goto40
  50. 54 ifct=0thenprint"[217]ou are empty handed.":goto40
  51. 55 print"[217]ou are carrying:":wd=0:ct=0:wo=0:forx=7to60:iflo(x)=-1thenprint"  "ob$(x)".":ct=ct+1
  52. 56 iflo(x)=108thenprint"  "ob$(x)" (wielded).":wd=1:ct=ct+1
  53. 57 iflo(x)=205thenprint"  "ob$(x)" (worn).":ct=ct+1:wo=wo+1
  54. 58 iflo(x)=405thenlt=1:print"  "ob$(x)" (lit[146])":ct=ct+1
  55. 59 next:ifwo>0thenprint"[217]our armor is protecting"wo*30"%":print"of your body."
  56. 60 goto40
  57. 61 z$=""
  58. 62 a=20:z=1:z$="a":print"[164][157]";:a$="":poke198,0
  59. 63 getz$:ifz$=""thena$="help":z=13:z$=chr$(13)
  60. 64 ifz$="[145]"orz$="[157]"orz$="[147]"orz$=""orz$=""then63
  61. 65 z=asc(z$):zl=len(a$):ifzl>athen67
  62. 66 ifz>31thena$=a$+z$:printz$"[164][157]";:goto63
  63. 67 ifz=13andzlthenprint" ":z$=a$:a$="":return
  64. 68 ifz=20andzlthena$=left$(a$,zl-1):print " [157][157][164][157]";
  65. 69 goto63
  66. 70 ifn>6thenprintre$(1):goto40
  67. 71 ifm(rm,n)=0thenprintre$(8):goto40
  68. 72 ifn=4andrm=31theniflo(52)=rmthenprint"[217]our path is":print"blocked by "ob$(52)"!":goto40
  69. 73 ifn=1andrm=33theniflo(58)=rmthenprint"[217]our path is":print"blocked by "ob$(58)"!":goto40
  70. 74 ifm(rm,n)>13andm(rm,n)<21orm(rm,n)>31theniflt=0thenprint"[201]t's too dark to move!":print"[198]ind a torch or lantern...":goto40
  71. 75 ifrm=11andn=1thenprintre$(3):goto40
  72. 76 rm=m(rm,n):gosub197:goto35
  73. 77 iflo(n)<>rmtheniflo(n)<>-1andlo(n)<>105andlo(n)<>205andlo(n)<>405thenprintre$(11)ob$(n):goto40
  74. 78 iflo(n)=-1orlo(n)=108orlo(n)=205orlo(n)=405thenprintre$(2)ob$(n):goto40
  75. 79 ifn<6thenprintre$(12):goto40
  76. 80 ifn=34orn=35orn>45thenprintre$(13)ob$(n):goto40
  77. 81 mx=8:iflo(9)=-1orlo(9)=205thenmx=16
  78. 82 iflo(18)=-1thenmx=12
  79. 83 iflo(19)=-1thenmx=14
  80. 84 ifct>=mx then print"[212]oo heavy. [217]ou'll need to drop":print"some weight.":goto40
  81. 85 ifn=8andlo(24)<>-1thenprint"[217]ou need something to put it in first.":goto40
  82. 86 lo(n)=-1:ct=ct+1:print"[207]k.":goto40
  83. 87 rem take
  84. 88 goto77
  85. 89 rem drop
  86. 90 iflo(n)=-1thenprint"[207]k, dropped...":lo(n)=rm:ct=ct-1:goto40
  87. 91 iflo(n)=108orlo(n)=205orlo(n)=405thenprint"[201]t must be carried to be dropped.":goto40
  88. 92 ifn=33andrm=36andlo(35)=rmthenprint"[199]omar thanks you.":gosub197:print"[200]e says,'[198]or your kindness, [201] shall     increase your vitality.'":gosub197:hp=hp+200:h=hp:goto94
  89. 93 printre$(5)ob$(n):goto40
  90. 94 iflo(n)=-1thenct=ct-1:lo(n)=1035
  91. 95 iflo(n)=205thenlo(n)=-1:ct=ct-1:lo(n)=1035:wo=wo-1
  92. 96 goto40
  93. 97 rem wield
  94. 98 iflo(n)=108thenprint"[201]t's already being wielded!":goto40
  95. 99 iflo(n)=205thenprint"[217]ou are wearing that. [201]t cannot":print"be wielded.":goto40
  96. 100 iflo(n)<>-1thenprintre$(5)ob$(n):goto40
  97. 101 ifn>26andn<33orn>35andn<40thenifwd=0thenlo(n)=108:wd=1:print"[207]k.":goto40
  98. 102 print"[212]hat cannot be wielded.":goto40
  99. 103 rem unwield
  100. 104 iflo(n)=108thenlo(n)=-1:wd=0:print"[207]k.":goto40
  101. 105 printre$(5)ob$(n):goto40
  102. 106 rem wear
  103. 107 iflo(n)<>-1thenprintre$(11):goto40
  104. 108 ifn=9orn=11orn=26orn=33thenlo(n)=205:print"[207]k.":wo=wo+1:goto40
  105. 109 print"[212]hat cannot be worn.":goto40
  106. 110 rem remove
  107. 111 iflo(n)=205thenlo(n)=-1:wo=wo-1:print"[217]ou remove "ob$(n)".":goto40
  108. 112 printre$(11):goto40
  109. 113 mx=8:iflo(9)=-1orlo(9)=205thenmx=16
  110. 114 iflo(18)=-1thenmx=12
  111. 115 iflo(19)=-1thenmx=14
  112. 116 ifrm<>9thenprint"[217]ou can't do that here!":goto40
  113. 117 iflo(55)=998thenprint"[212]he clerk isn't here.":goto40
  114. 118 iflo(n)=75thengosub406:ifgp=>pandp<>0andct<mxthengp=gp-p:ct=ct+1:lo(n)=-1:print"[212]he clerk says,'[212]hank you.'":goto40
  115. 119 ifgp<pthenprint"[212]he clerk shakes his head.":print"[200]e says,'[217]ou don't have enough gold.'":goto40
  116. 120 ifct>=mxthenprint"[217]ou are carrying too much weight.":goto40
  117. 121 print"[212]he clerk says,'[211]orry. [201] can't do that.'":print"[199]old:[146]"gp:goto40
  118. 122 rem sell
  119. 123 ifrm<>9thenprint"[217]ou can't do that here!":goto40
  120. 124 iflo(55)<>rmthenprint"[212]he clerk isn't here.":goto40
  121. 125 iflo(n)=205orlo(n)=108thenprint"[212]he clerk says,'[217]ou'll need to unequip":print"that first.'":goto40
  122. 126 iflo(n)<>-1thenprint"[212]he clerk shakes his head.":print"[200]e says,'[217]ou aren't carrying that.'":goto40
  123. 127 gosub406:gp=gp+p:ct=ct-1:lo(n)=75:print"[212]he clerk hands you"p"gold coins.":print"[212]he clerk says,'[212]hank you.'":goto40
  124. 128 rem eat
  125. 129 iflo(n)<>-1thenprintre$(14):goto40
  126. 130 ifn=26thenprint"[217]ou feel funny.":gosub197:print"[212]he wolfsbane was poisonous!":gosub197:print"[215]ell, you died...":gosub197:goto298
  127. 131 ifn=7thenlo(7)=75:ct=ct-1:print"[217]ou eat the food.":gosub197:print"[217]our fatigue is lessened.":hv=0:he=0:h=hp:goto40
  128. 132 print"[217]ou cannot eat that here.":goto40
  129. 133 rem drink
  130. 134 iflo(n)<>-1thenprint"[217]ou can't drink that here.":goto40
  131. 135 ifn=8andlo(8)=-1thenprint"[212]he water is very refreshing.":lo(8)=7:ct=ct-1:gosub197:he=0:h=hp:goto40
  132. 136 ifn=10 or n=12thenprint"[217]uck! [201]t tastes funny...":goto40
  133. 137 ifn=24theniflo(8)<>-1thenprint"[212]he waterskin is empty.":goto40
  134. 138 print"[217]ou can't drink that here.":goto40
  135. 139 rem examine
  136. 140 ifn=0orn<7thengoto143
  137. 141 iflo(n)<>-1andlo(n)<>108andlo(n)<>205andlo(n)<>405andlo(n)<>rmthenprint"[217]ou don't see that here.":goto40
  138. 142 iflo(n)=rmorlo(n)=-1orlo(n)=108orlo(n)=205orlo(n)=405thenprintex$(n):goto40
  139. 143 printre$(6):goto40
  140. 144 rem read
  141. 145 iflo(n)<>-1andlo(n)<>rmthenprint"[217]ou don't see that here.":goto40
  142. 146 ifn=41thenprint"[212]he sign reads:'[215]elcome to [197]ldor.'":goto40
  143. 147 ifn=45thenprint"[212]he words are beyond your knowledge":print"or skill.":goto40
  144. 148 print"[201]t wasn't too interesting after all...":goto40
  145. 149 rem light
  146. 150 iflo(n)<>-1andlo(n)<>405thenprint"[217]ou must be carrying the":printob$(n)"to light it.":goto40
  147. 151 ifn=23thenlt=1:print"[212]he torch is now lit.":lo(23)=405:goto40
  148. 152 print"[212]he "ob$(n)" is not":print"a flammable substance.":goto40
  149. 153 rem extinguish
  150. 154 iflo(n)<>405thenprint"[212]he "ob$(n)" is not here":print"or is not lit.":goto40
  151. 155 lo(n)=-1:print"[217]ou exintuish the "ob$(n)".":lt=0:goto40
  152. 156 rem climb
  153. 157 ifwd$(2)="tree"thenifrm<>13thenprint"[217]ou can't see a way.":goto40
  154. 158 ifwd$(2)="tree"thenifrm=13thenrm=36:print"[217]ou slowly ascend the tree...":gosub197:goto35
  155. 159 print"[217]ou can't see a way to climb it.":goto40
  156. 160 rem use
  157. 161 iflo(n)<>-1andlo(n)<>405thenprint"[217]ou must be carrying that to use!":goto40
  158. 162 ifn=21thenifrm=34thenprint"[207]n lock[146]":print"[212]he cell lock breaks!":gosub197:print"[212]he old man is now free!":gosub197:forx=67to76step2:printde$(x):printde$(x+1):te=1:goto298
  159. 163 ifn=22theniflo(13)=-1andlt=0thenlt=1:print"[212]he lantern is now lit.":goto40
  160. 164 ifn=22theniflo(13)<>-1thenprint"[217]ou need the lantern first.":goto40
  161. 165 ifn=13andlo(22)=-1andlt=0thenlt=1:print"[212]he lantern is now aglow.":lo(13)=405:goto40
  162. 166 ifn=13andlt=1thenprint"[212]he lantern is already aglow.":lo(13)=405:goto40
  163. 167 print"[217]ou can't see a use for "ob$(n)".":goto40
  164. 168 gosub242:wo=0:forx=7to45:iflo(x)=205thenwo=wo+1
  165. 169 next:iflo(n)<>rmthenprint"[201] don't see that here.":goto40
  166. 170 mh=int(rnd(1)*850)+1:ifn<46thenprint"[217]ou can't kill something that isn't     alive.":goto40
  167. 171 wd=0:forx=7to45:iflo(x)=108thenwp=x:wd=1
  168. 172 next:print"[217]ou are fighting "ob$(n)"[146].":ifwd=0thenwp=1:print"[217]ou are wielding nothing..."
  169. 173 i=int(rnd(1)*35)+1:print">":gosub197:ifi<5thenprint"[217]ou missed."
  170. 174 ifi>4andi<10theniflo(38)=108thenprint"[217]our [211]cimitar[146] glows!":print"[212]he "ob$(n)" is hit with":print"lightning!":mh=mh-100
  171. 175 ifi>4andi<10andlo(38)<>108thenprint"[217]ou hit "ob$(n):print"very hard.":mh=mh-25:mh=mh-wp
  172. 176 ifi>9andi<15thenprint"[217]ou smashed "ob$(n):print"with a bone-crushing sound!":mh=mh-50:mh=mh-wp
  173. 177 ifi>14thenprint"[212]he "ob$(n)" dodged your attack."
  174. 178 i=int(rnd(1)*35)+1:print">":gosub197:ifmh<1thenprint"[212]he "ob$(n)" died.":print"[217]ou killed "ob$(n)".":gosub197:lo(n)=998:mh=500:goto 185
  175. 179 ifh<1thenprint"[193]las, you have died.":gosub197:goto298
  176. 180 ifi<5thenprint"[212]he "ob$(n)" missed you."
  177. 181 ifi>4andi<10 thenprint"[212]he "ob$(n)" hit you very hard.":h=h-n:h=h+wo
  178. 182 ifi>9andi<15 thenprint"[212]he "ob$(n)" smashed you":print"with a bone-crushing sound!":h=h-50:h=h+wo
  179. 183 ifi>14thenprint"[217]ou dodged the attack."
  180. 184 print"[217]our [200][208]:"h"[146]/"hp"[146]":print"[212]he monster: "mh"[146]":gosub197:goto171
  181. 185 sc=sc+n:ee=ee+n+i+h:forx=7to45:iflo(x)=1000+nthenprint"[217]ou found "ob$(x):print"on it!":lo(x)=rm:sc=sc+10
  182. 186 next:ge=ge+i+mh:print"[217]ou gained"ee"experience points":print"and"ge"gold coins.":gp=gp+ge:ep=ep+ee:ifee>100thenlv=lv+1:print"[217]ou gained a level!":hp=hp+25:h=hp
  183. 187 gosub197:print"[147]":goto35
  184. 188 ifhp<h then hp=h
  185. 189 print"[217]ou have"ep"xp pts,"gp"gold coins,":printh"hit points (of"hp").":print"[217]ou are "pn$" the "kn$"[146]!":print"[217]our alignment puts you in the category of "al$"."
  186. 190 v=20:n=1:return
  187. 191 end
  188. 192 rem more
  189. 193 print"<more>[146]"
  190. 194 getry$:ifry$=""thengoto194
  191. 195 return
  192. 196 rem wait
  193. 197 forx=1to1500:next
  194. 198 return
  195. 199 return
  196. 200 iflt$="westdata"orleft$(lt$,4)="mys." thensi=1
  197. 201 return
  198. 202 vic=53248:pokevic+21,0
  199. 203 getry$:ifry$=""thengoto203
  200. 204 ifry$="y"orry$="[217]"thenprint"y";:return
  201. 205 ifry$="n"orry$="[206]"thenprint"n";:return
  202. 206 goto203
  203. 207 print"[147][204]et's [210]eview[146]":print:print"[217]our name is: "na$"[146]":print"[217]ou are known as "na$"[146] the "kn$"[146]":print"[217]our alignment is: ";:ifal$="l"thenprint"[204]awful[146]"
  204. 208 ifal$="c"thenprint"[195]haotic[146]":al$="[195]haotic"
  205. 209 ifal$="n"thenprint"[206]eutral[146]":al$="[206]eutral"
  206. 210 print:print"[146][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";:print"[206]ote[146]: [215]hen you restart a saved game,    some of your possessions will be gone.  [212]his makes it more";
  207. 211 print" challenging. [194]esides,you can always find them again later.":gosub197:print"[211]hall we begin? (y/n):";:ifal$="l"thenal$="[204]awful"
  208. 212 gosub202:ifry$="y"orry$="[217]"thengosub197:goto34
  209. 213 ifry$="n"orry$="[206]"thengosub197:goto25
  210. 214 goto207
  211. 215 forx=7to50:lo(x)=75:next:ao$(46)="pabo":ao$(47)="jori":ao$(48)="harpy":ao$(49)="isran":ao$(50)="voromir":ao$(51)="brimor":ao$(52)="mordimar"
  212. 216 lo(7)=1:lo(8)=7:lo(9)=22:lo(10)=6:lo(11)=11:lo(12)=11:lo(13)=12:lo(14)=26:lo(15)=75:lo(16)=12:lo(17)=34:lo(18)=21:lo(19)=75:lo(20)=75:lo(21)=12:lo(22)=-1
  213. 217 lo(23)=-1:lo(24)=75:lo(25)=2:lo(26)=75:lo(27)=75:lo(28)=75:lo(29)=1057:lo(30)=75:lo(31)=75:lo(32)=-1:ct=3:lo(33)=25:lo(34)=998:lo(35)=36:lo(36)=75:lo(37)=75
  214. 218 lo(38)=75:lo(39)=75:lo(40)=13:lo(41)=998:lo(42)=12:lo(43)=998:lo(44)=24:forx=45to51:lo(x)=998:next:lo(52)=31:lo(53)=8:lo(54)=16:lo(55)=9:lo(56)=18:lo(57)=15
  215. 219 lo(58)=33:lo(59)=24:lo(60)=13
  216. 220 ao$(53)="villager":ao$(54)="byrd":ao$(55)="clerk":ao$(56)="giblin":ao$(57)="elf":ao$(58)="blackwidow"
  217. 221 ao$(59)="thief":ao$(60)="tursk":open2,8,2,"0:mys.dat,s,r":forx=1to35:fory=1to6:input#2,m(x,y):next:next:close2:rn$(36)="[200]igh atop the forest"
  218. 222 open2,8,2,"0:mys.ext,s,r":forx=8to60:input#2,ex$(x):next:close2:open2,8,2,"0:mys.mon,s,r":forx=1to60:input#2,ob$(x):next:forx=1to36:input#2,rn$(x):next:close2
  219. 223 ex$(7)="[211]tarring at the food is beginning to    make you quite hungry.":return
  220. 224 ifz$="n"orz$="north"orz$="go north"thenv=1:n=1
  221. 225 ifz$="s"orz$="south"orz$="go south"thenv=1:n=2
  222. 226 ifz$="e"orz$="east"orz$="go east"thenv=1:n=3
  223. 227 ifz$="w"orz$="west"orz$="go west"thenv=1:n=4
  224. 228 ifz$="u"orz$="up"orz$="go up"thenv=1:n=5
  225. 229 ifz$="d"orz$="down"orz$="go down"thenv=1:n=6
  226. 230 cg=cg+1:m=m+1:ifcg>100thencg=0:hr=hr+1:m=0:hv=hv+.01:hn=hn+.01:he=he+.01:ep=ep+1
  227. 231 ifhr=12andpm$="am"thentm$="[193]fternoon":pm$="pm":hr=1:print"[201]t is past noon."
  228. 232 ifhr=12andpm$="pm"thentm$="[205]orning":pm$="am":hr=1:dy=dy+1:print"[193]nother day has passed."
  229. 233 ifhr=6andpm$="am"thenhr=7:tm$="[211]unrise":print"[201]t is sunrise."
  230. 234 ifhr=6andpm$="pm"thenhr=7:tm$="[211]unset":print"[212]he sun is setting."
  231. 235 ifhr=7andpm$="am"thenhr=9:tm$="[205]orning":print"[201]t is early morning."
  232. 236 ifhr=7andpm$="pm"thenhr=9:tm$="[197]vening":print"[201]t is early in the evening."
  233. 237 ifz$="save"orz$="save game"thenifv<>21theninput"[197]nter filename";na$:open15,8,15,"s0:"+na$+",s,w":close15:gosub245:v=21:n=1
  234. 238 ifz$="score"orz$="sc"orz$="?"thenifv<>20thengosub188:v=20:n=1
  235. 239 return
  236. 240 if si=0 then print"[206]one."
  237. 241 return
  238. 242 vic=53248:pokevic+21,0:return
  239. 243 print"[213]se these commands[146]":print"1. go 2. get 3. take 4. wield           5. unwield 6. wear 7. remove 8. buy     9. sell 10. use 11. climb 12. light":gosub193
  240. 244 print"13. extinguish 14. examine 15. look     16. inventory 17. save game 18. score   19. kill 20. help 21. quit 22. eat      23. drink":print:goto40
  241. 245 rem save game
  242. 246 close15:close2:open2,8,2,"0:"+na$+",s,w":forx=7to62:print#2,lo(x):next
  243. 247 print#2,rm:print#2,ct:print#2,ep:print#2,gp:print#2,h:print#2,hp:print#2,pn$:print#2,kn$:print#2,al$:close2
  244. 248 return
  245. 249 rem title
  246. 250 pokevic+21,255:pokevic+16,0:pokevic+29,255:forx=37to44:pokevic+x,5:next
  247. 251 pokevic+0,98:pokevic+1,60:pokevic+2,146:pokevic+3,60:pokevic+4,187:pokevic+5,60:pokevic+6,227:pokevic+7,60
  248. 252 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146]":forx=1to3:print" [146] [146]":next:print"        [195][193][211][212][204][197]        [146]"
  249. 253 print"[164][164][164][164][164][164][164][164][158] [198]or the [195]ommodore 64 [146][164][164][164][164][164][164][164][164][164][164]";:return
  250. 256 open15,8,15,"i":close15:open15,8,15,"v":close15:open15,8,15,"s0:mystic castle,p,w":close15:save"mystic castle",8:open15,8,15,"s0:m,p,w":close15:save"m",8:end
  251. 257 print"                                        [146]":print"[145][145]"rn$(rm)"  ("tm$")[146]":printrn$(rm):print
  252. 258 iflt=0thenifrm>13andrm<21orrm>31thenprintre$(7):return
  253. 259 ifrm=1thenprintde$(43):gosub193:printde$(44):gosub193
  254. 260 ifrm=2thenprintde$(45):gosub193:printde$(46):gosub193
  255. 261 ifrm=3thenprintde$(47):gosub193:printde$(48):gosub193
  256. 262 ifrm=4thenprintde$(49):gosub193:printde$(50):gosub193
  257. 263 ifrm=5thenprintde$(51):gosub193:printde$(52):gosub193
  258. 264 ifrm=6thenprintde$(53):gosub193:printde$(54):gosub193
  259. 265 ifrm=7thenprintde$(33):gosub193:printde$(34):gosub193
  260. 266 ifrm=8thenprintde$(35):gosub193:printde$(36):gosub193
  261. 267 ifrm=9thenprintde$(55):gosub193:printde$(56):gosub193
  262. 268 ifrm=10thenprintde$(37):gosub193:printde$(38):gosub193
  263. 269 ifrm=11thenprintde$(39):gosub193:printde$(40):gosub193
  264. 270 ifrm=12thenprintde$(41):gosub193:printde$(42):gosub193
  265. 271 ifrm=13thenprintde$(31):gosub193:printde$(32):gosub193
  266. 272 ifrm=14thenprintde$(29):gosub193:printde$(30):gosub193
  267. 273 ifrm=15thenprintde$(27):gosub193:printde$(28):gosub193
  268. 274 ifrm=16thenprintde$(25):gosub193:printde$(26):gosub193
  269. 275 ifrm=17thenprintde$(23):gosub193:printde$(24):gosub193
  270. 276 ifrm=18thenprintde$(1):gosub193:printde$(2):gosub193
  271. 277 ifrm=19thenprintde$(21):gosub193:printde$(22):gosub193
  272. 278 ifrm=20thenprintde$(19):gosub193:printde$(20):gosub193
  273. 279 ifrm=21thenprintde$(15):gosub193:printde$(16):gosub193
  274. 280 ifrm=22thenprintde$(3):gosub193:printde$(4):gosub193
  275. 281 ifrm=23thenprintde$(17):gosub193:printde$(18):gosub193
  276. 282 ifrm=24thenprintde$(5):gosub193:printde$(6):gosub193
  277. 283 ifrm=25thenprintde$(7):gosub193:printde$(8):gosub193
  278. 284 ifrm=26thenprintde$(9):gosub193:printde$(10):gosub193
  279. 285 ifrm=27thenprintde$(11):gosub193:printde$(12):gosub193
  280. 286 ifrm=28thenprintde$(13):gosub193:printde$(14):gosub193
  281. 287 ifrm=29thenprintde$(57):gosub193:printde$(58):gosub193
  282. 288 ifrm=30thenprintde$(59):gosub193:printde$(60):gosub193
  283. 289 ifrm=31thenprintde$(61):gosub193:printde$(62):gosub193
  284. 290 ifrm=32thenprintde$(63):gosub193:printde$(64):gosub193
  285. 291 ifrm=33thenprintde$(63):gosub193:printde$(64):gosub193
  286. 292 ifrm=34thenprintde$(65):gosub193:printde$(66):gosub193
  287. 293 ifrm=35thenprintde$(25):gosub193:printde$(26):gosub193
  288. 294 ifrm=36thenprint"[217]ou are on a branch high atop the       forest. [198]rom here you can see a castle  to the southwest and a meadow by a      pond past a hillside."
  289. 295 ifrm=36thengosub193:iflo(35)=rmthenprint"[217]ou see a troll here, apparently        meditating. [208]erhaps it would be wise    not to disturb him.":gosub193
  290. 296 ifrm=36andlo(35)=rmtheniflo(35)=-1orlo(35)=205thenprint"[212]roll [199]omar notices your presence.":print"[200]e looks up and says:":print:print"'[212]hat ring was once mine.'":print
  291. 297 return
  292. 298 rem player died
  293. 299 ifte=1thenprint"[212]he [197]nd![146]":gosub197
  294. 300 print"[147][212]hanks for playing![146]":goto11000
  295. 301 rem room data
  296. 302 data"[217]ou are standing in a dark forest. [212]he  sky above is obscured by the canopy     of leaves and foliage from the trees.   [193] path breaks off south of here.
  297. 303 [131]"(NULL)ou also notice one particular tree     (with low-lying branches) by the side ofthe main path."
  298. 304 [131]"(NULL)ou are standing inside a large house,  possibly dating from the (NULL)ictorian era. (NULL)he main hall is decorated with ela-    borate paintings."
  299. 305 [131]"(NULL)ou also notice a fireplace with a      wooden mantle above it. (NULL)esting on the  mantle are several books."
  300. 306 [131]"(NULL)ou are in the library of the house. atn  large grand piano is set against the    back wall. (NULL)ou notice some sheet music  above the piano keys."
  301. 307 [131]"(NULL)o the west of the library stands a     statue of a knight (holding tightly to  a lance)."
  302. 308 [131]"(NULL)ou are standing in a dimly lit hallway inside the house. (NULL)he walls are faintly aglow by soft candle light. atn few       candles flicker in the darkness.
  303. 309 data"[217]ou notice a doorway ahead, heading intothe [205]aster bedroom."
  304. 310 data"[217]ou are inside the [205]aster bedroom of thehouse. [193] large [209]ueen sized bed is       visible in the center of the room.":data"[193] plush carpet is also here."
  305. 311 data"[217]ou are standing inside the [205]aster      bath. [193] basin is here where you can washyour face (or do whatever else it is    you came here to do)."
  306. 312 data"[212]here is a closet here as well. [211]everal rows of clothing can be seen just insidethe front doorway."
  307. 313 data"[217]ou are standing in a rather spacious   closet. [210]ows of clothing adorn either   side of the doorway. [217]ou notice a few   items of interest here as well."
  308. 314 data"[207]n one rack you notice a fine suit and  tie."
  309. 315 data"[217]ou are standing in the [205]ain kitchen of the house. [193] wooden table lies in the   center, with some items resting atop it."
  310. 316 data"[217]ou notice a large sack atop the table."
  311. 317 data"[217]ou are standing in front of a large    house. [201]t is aged and worn with time,   possibly as old as the [214]ictorian era!"
  312. 318 data"[193] path leads into the house from the    north. [212]he trail heads off west of here towards a large meadow."
  313. 319 data"[217]ou are standing in a grassy meadow eastof a large house. [217]ou see a few flowers blooming in small patches alongside the grass."
  314. 320 data"[193] small pond lies to the north of here, obscured by lumbering [207]ak trees."
  315. 321 data"[217]ou stand before a small pond near a    grassy meadow. [212]he water is relatively  dark and murky, with moss visible on    rocks nearby."
  316. 322 data"[212]he path heads south from here past a   large, rolling meadow."
  317. 323 data"[217]ou are walking along a well-travelled  path near a forest, the treetops of     which rise several feet above."
  318. 324 data"[212]he ground is covered mostly with old   leaves, although up ahead you notice a  small clearing (away from the forest)."
  319. 325 data"[217]ou are standing in a damp and dark     forest. [212]he ground is quite wet from a  recent storm. [204]eaves and mud are mixed  together upon the ground."
  320. 326 data"[212]he forest continues east into a thick  wood."
  321. 327 data"[217]ou are standing in a thick wood. [212]he   trees are mostly bare, but it isn't     immediately obvious why. [211]ome are black-ened with ash and soot."
  322. 328 data"[212]he woods become less dense to the west,while a small village is visible up     ahead to the north."
  323. 329 data"[217]ou are walking on a well-travelled pathnear town. [193] large forest stands to the south, while a meadow is visible far to the southwest."
  324. 330 data"[212]he road into town heads north."
  325. 331 data"[217]ou are standing near the entrance to   a village. [211]moke billows from chimneys  as clouds drift on by. [193] tavern is vis- ible to the north of here."
  326. 332 data"[217]ou also notice a well near the center of town."
  327. 333 data"[217]ou are standing before a well. [193] bucketis here where you can obtain water from below. [212]he sides of the well are green  with moss."
  328. 334 data"[212]he water rises from the depths of the  well bottom by some 50 feet."
  329. 335 data"[217]ou are standing on the main path       through town. [193] well is visible directlynorth of here, while a tavern is much   further down the road."
  330. 336 data"[193] church lies to the west, its spire    cutting across the clouds with a sharp- ness reserved for knives."
  331. 337 data"[217]ou are standing inside a large cath-   edral. [210]ows of pews adorn the massive   interior of this church. [212]here are      stained glass windows here,too."
  332. 338 data"[213]p near the front stands a large altar. [210]ows of items adorn the base, with a    large crucifix hanging down from above  (near the ceiling)."
  333. 339 data"[217]ou stand before an altar in the cath-  edral. [213]pon it rests several items, manyof which may serve some useful purpose."
  334. 340 data"[212]he main walkway of the church is       directly south."
  335. 341 data"[217]ou are standing in the back room of    the cathedral. [211]everal items are stackedneatly against the back wall."
  336. 342 data"[212]he only exit is back west."
  337. 343 data"[217]ou are standing in a large tavern.     [212]here is a bar up ahead to the north,   while a staircase leads upwards to the  second floor of the tavern."
  338. 344 data"[211]everal tables and chairs are also here (some of them occupied)."
  339. 345 data"[217]ou are standing before the bar inside  the tavern. [193] stout fellow named [194]arnas greets you with a smile."
  340. 346 data"[212]he only exit is back south."
  341. 347 data"[217]ou are standing before a long and wind-ing staircase inside the tavern. [212]he    staircase ascends to the second floor   of this tavern."
  342. 348 data"[212]here is a hallway up above which leads into several rooms."
  343. 349 data"[217]ou are standing on the second floor of the tavern. [212]he hallway heads west here past several rooms."
  344. 350 data"[207]n the other side of the hallway is a   large [207]ak door."
  345. 351 data"[217]ou stand before an [207]ak door at the end of the hallway. [201]t appears to be locked at the moment. [200]owever, if you could    just locate the key..."
  346. 352 data"[212]he only exit is back east."
  347. 353 data"[193]t last you open the door! [212]he room is  mostly bare, save for a small bed and   dresser drawer."
  348. 354 data"[193]top the dresser you notice a large     mirror."
  349. 355 data"[217]ou are standing inside a small shop    in town. [193] clerk is here, attending to  a few local patrons. [217]ou notice rows of shelves here as well."
  350. 356 data"[211]ome of them contain useful items, but  you'll have to pay for them first!      [212]ype list[146] to see what's sold here."
  351. 357 data"[217]ou stand before a large, hulking castleat the end of the forest. [201]t is shroudedin myst, but nevertheless rises hundredsof feet into the air."
  352. 358 data"[212]he ramparts of the castle rise above,  with dark red flags flapping gently in  the breeze."
  353. 359 data"[217]ou are inside the main hallway of      [205]ystic castle. [201]t is a true relic from  the [196]ark [193]ges, when men could only dreamof the technologies of today.
  354. 360 [131]"(NULL)he hallway of the castle heads past    several columns (some of them decorated with banners and griffons)."
  355. 361 [131]"(NULL)ou are before a throne in the throne   room of this castle. right$t is plated in    gold and encrusted with precious jewels.atn scepter is also here."
  356. 362 [131]"(NULL)o the west of the throne room stands   a hallway, heading into darkness below."
  357. 363 [131]"(NULL)ou are walking in a darkened hallway   (just west of the throne room). lenandles flicker softly on either side, casting  dark shadows."
  358. 364 [131]"(NULL)p ahead to the north lies a single     cell, apparently occupied."
  359. 365 [131]"(NULL)ou are standing before a lone cell     within the dungeon. atnn old man is here, eating gingerly from a bowl. left$e appears frail and aged, and in poor"
  360. 366 [131]"shape. left$e looks up at you briefly, and  then continues eating his soup."
  361. 367 [131]"(NULL)he old man looks up at you. 'right$ was oncestrong and fit, just like you.' he says with a faint heart."
  362. 368 [131]"'peekut age and time has taken that away    from me, like chaff from wheat.'"
  363. 369 [131]"(NULL)ou say to the old man, '(NULL)hy are you    here? (NULL)ho put you inside this cell?'"
  364. 370 [131]"(NULL)he old man replies, '(NULL)y name is valric.  right$ was once (NULL)ing of this very castle.    peekut one day my best knight turned       against me, casting me here.'
  365. 371 data"[217]ou attempt to open the cell, but the   door doesn't budge. [212]he old man nods    to you, saying, '[201] appreciate the effortbut that door is locked.'"
  366. 372 data"[217]ou'll need to find a way to open the   door and free him, otherwise he'll      be doomed to remain here...possibly to  the end of his days!"
  367. 373 data"[193]t last you open the cell door! [212]he old man smiles gently. '[212]hank you, my brave friend. [200]owever can [201] thank you for     doing this brave deed?'"
  368. 374 data"[194]ut you reply simply, '[201] have done no   better than anyone else.' [212]he old man   nods, and then says to you, '[215]hy don't  you help me out of here?'"
  369. 375 data"[217]ou help the old man to his feet. [211]tep  by step, you lead him out of the dungeonand into the light of the throne room.  [200]e is very grateful."
  370. 376 data"'[212]hank you, my brave friend,' he says   to you. '[201] will forever be endebted to  you. [215]hat is mine is now yours. [201] will  take comfort in this truth.'"
  371. 377 rem response data
  372. 378 data "[212]ell me a direction to go in first.","[217]ou already have the "
  373. 379 data "[198]urther travel north is block by fallen trees.
  374. 380 [131] "right$ do not understand you.","(NULL)ou are not carrying the "
  375. 381 [131] "(NULL)ou see nothing special.","right$t is too dark to see."
  376. 382 [131] "(NULL)ou cannot go that way.","(NULL)ou do not have the ","(NULL)othing happens."
  377. 383 [131] "right$ do not see the ","(NULL)ou cannot pickup a direction!"
  378. 384 [131] "(NULL)ou cannot pick up ","(NULL)ou can't eat something that you don't  have!"
  379. 385 [153]">";
  380. 386 [139]lo(37)[178]75[167][153]"300:  shortsword.
  381. 387 iflo(26)=75thenprint"75:   wolfsbane.
  382. 388 [139]lo(13)[178]75[167][153]"100:  lantern.
  383. 389 iflo(14)=75thenprint"15:   mirror.
  384. 390 [139]lo(15)[178]75[167][153]"35:   pole.
  385. 391 iflo(36)=75thenprint"180:  bowieknife.
  386. 392 [139]lo(27)[178]75[167][153]"1500: ironaxe.
  387. 393 iflo(23)=75thenprint"42:   torch.
  388. 394 [139]lo(24)[178]75[167][153]"16:   canteen.
  389. 395 iflo(19)=75thenprint"24:   sack.
  390. 396 [139]lo(7)[178]75[167][153] "30:   food.
  391. 397 iflo(9)=75thenprint "100:  backpack.
  392. 398 [139]lo(10)[178]75[167][153]"40:   oil.
  393. 399 iflo(12)=75thenprint"20:   holywater.
  394. 400 [139]lo(18)[178]75[167][153]"84:   smallsack.
  395. 401 iflo(25)=75thenprint"1000: wine.
  396. 402 [139]lo(32)[178]75[167][153]"70:   dagger.
  397. 403 iflo(38)=75thenprint"5000: scimitar.
  398. 404 [139]lo(39)[178]75[167][153]"6000: two-handed sword."
  399. 405 [142]
  400. 406 p[178]0:ob[178]n:[139]n[178]37[167]p[178]300
  401. 407 [139]n[178]26[167]p[178]75
  402. 408 [139]n[178]13[167]p[178]100
  403. 409 [139]n[178]14[167]p[178]15
  404. 410 [139]n[178]15[167]p[178]35
  405. 411 [139]n[178]36[167]p[178]180
  406. 412 [139]n[178]27[167]p[178]1500
  407. 413 [139]n[178]23[167]p[178]42
  408. 414 [139]n[178]24[167]p[178]16
  409. 415 [139]n[178]19[167]p[178]24
  410. 416 [139]n[178]7[167]p[178]30
  411. 417 [139]n[178]9[167]p[178]100
  412. 418 [139]n[178]10[167]p[178]40
  413. 419 [139]n[178]12[167]p[178]20
  414. 420 [139]n[178]18[167]p[178]84
  415. 421 [139]n[178]25[167]p[178]1000
  416. 422 [139]n[178]32[167]p[178]70
  417. 423 [139]n[178]38[167]p[178]5000
  418. 424 [139]n[178]39[167]p[178]6000
  419. 425 [139]p[178]0[167][153]"(NULL)ou can't do that.":[153]"(NULL)he shop won't have it."
  420. 426 [142]
  421. 10000 [159]1,8,15,"i0":n$[178]"mystic castle/64"
  422. 10001 [152]1,"s0:"[170]n$:[160]1:[148]n$,8:[128]
  423. 11000 [151]53269,0:a$[178]"h":[151]1,55
  424. 11001 [153]"loadstoploada$,8":[153]"run"
  425. 11002 [151]198,2:[151]631,13:[151]632,13:[128]
  426. 62999 [143] freeze 6 lines subroutine - by cameron kaiser
  427. 63000 [143] window stuff
  428. 63002 [151]770,131:[151]771,164:[151]88,0:[151]89,192:[151]90,0:[151]91,192
  429. 63003 [151]781,33:[151]782,0:[158]41964
  430. 63004 [151]88,254:[151]89,255:[151]90,254:[151]91,255
  431. 63005 [151]781,33:[151]782,0:[158]41964
  432. 63007 [151]59639,5:[151]1,53:[142]
  433.